﻿'Option Strict Off
Option Explicit On
Imports System

Imports System.Data.Common

Namespace MasschangeDSTableAdapters
    Partial Public Class BudgetDetailsTableAdapter
        Inherits System.ComponentModel.Component

        Public Function GetDataByFilter(ByVal dataTable As MassChangeDS.BudgetDetailsDataTable, ByVal SQLExpression As String) As Integer
            Dim OriginalCommandText As String
            OriginalCommandText = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText += SQLExpression
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = OriginalCommandText
            End Try
        End Function

        Public Function Execute(ByVal SQL As String) As Integer
            Dim text1 As String
            text1 = Me.CommandCollection(2).CommandText
            'Try
            Me.CommandCollection(2).CommandText = SQL
            Return Me.UpdateQuery
        End Function
        Public Function Execute1(ByVal SQL As String) As Object
            Dim text1 As String
            text1 = Me.CommandCollection(2).CommandText
            'Try
            Me.CommandCollection(2).CommandText = SQL
            Return Me.InsertQuery
        End Function
    End Class
    Partial Public Class Budget12TableAdapter
        Inherits System.ComponentModel.Component
        Public Function Execute(ByVal SQL As String) As Object
            Me.CommandCollection(1).CommandText = SQL
            Return Me.InsertQuery
        End Function
    End Class
End Namespace